Excel Hacks

2:26

This media is not supported in your browser

VIEW IN TELEGRAM

Маълум бир рангдаги ячейкалар суммасини аниқлаш формуласи.

Excel таркибида афсуски бу формула мавжуд эмас, лекин уни макрослар ёрдамида яратиб олишимиз мумкин. Бунинг учун:

1️⃣ Янги файлни xlsm форматида сақлаб олинг.
2️⃣ Alt + F11 бирикмасини босиб янги Модуль яратинг.
3️⃣ Қуйида кўрсатилган кодни кўчириб олиб модульни сақланг.
4️⃣ Формулани ишлатиш учун иккита критерий белгиланг: диапазон ва рангли ячейка.
5️⃣ Формула ҳисоблаши учун F9 клавишасини ишлатинг.

Public Function SummaRang(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
Application.Volatile True

For Each cell In DataRange
If cell.Interior.Color = ColorSample.Interior.Color Then
Sum = Sum + cell.Value
End If
Next cell
SummaRang = Sum
End Function

➖➖➖➖➖➖➖➖➖➖
Excel Hacks видеокурси | 1C видеокурси

www.tg-me.com/ua/Excel Hacks/com.excel_hacks/641

11.0K viewsJun 9, 2023 at 04:27

Маълум бир рангдаги ячейкалар суммасини аниқлаш формуласи.

Excel таркибида афсуски бу формула мавжуд эмас, лекин уни макрослар ёрдамида яратиб олишимиз мумкин. Бунинг учун:

1️⃣ Янги файлни xlsm форматида сақлаб олинг.
2️⃣ Alt + F11 бирикмасини босиб янги Модуль яратинг.
3️⃣ Қуйида кўрсатилган кодни кўчириб олиб модульни сақланг.
4️⃣ Формулани ишлатиш учун иккита критерий белгиланг: диапазон ва рангли ячейка.
5️⃣ Формула ҳисоблаши учун F9 клавишасини ишлатинг.

Public Function SummaRang(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
Application.Volatile True

For Each cell In DataRange
If cell.Interior.Color = ColorSample.Interior.Color Then
Sum = Sum + cell.Value
End If
Next cell
SummaRang = Sum
End Function

➖➖➖➖➖➖➖➖➖➖
Excel Hacks видеокурси | 1C видеокурси

BY Excel Hacks